Gekkan Dennou Club 147/Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z/Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin/music/omiya/garnet.bas

BASIC Source File | 1999-02-01 | 16KB | 312 lines

 1000 /*
 1010 /*
 1020 /*
 1030 /*    Words by ＯＭＩＹＡ
 1040 /*    Composed by ＯＭＩＹＡ
 1050 /*    Arranged and programed by ＯＭＩＹＡ
 1060 /*
 1061 /*    SOUND SOURCE
 1062 /*           SC-55 / CM-64(with No.7 E.Guitar card) syncronized play
 1063 /*    MASTER TUNE o3A = 440.0 Hz
 1064 /*
 1070 key 4,"list 10000-@M"
 1080 /*key 9,"m_stop() @M" : key 10,"m_play() @M"
 1090 key 8,"sa.@@H:\TS_03B@M"
 1100 key 18,"sa.@@d:\music\TS_03B@M"
 1110 key 7,"m_mute(10,21)@M"
 1120 key 2,"m_debug(0)@M"
 1130 key 3,"m_debug(1)@M"
 7000 m_init()
 8000 /* EXCLUSIVE
 8010 dim char ARY(15)
 8011 /* SOUND GENERATORS RESET
 8012 ARY={&H7F,0,0,0} /* CM-64
 8013 m_roland(&H10,&H16,ARY,4)
 8014 ARY={&H40,0,&H7F,0} /* SC-55
 8015 m_roland(16,&H42,ARY,4)
 8016 /*
 8020 /* CM-64 MUTE (CH.2-10)
 8030 ARY={&H10,&H0,&HD,16,16,16,16,16,16,16,16,16}
 8040 m_roland(&H10,&H16,ARY,12)
 8050 /*
 8060 /* CM-64 MASTER TUNE/REVERB/PARTIAL RESERVE
 8070 ARY={&H52,&H0,&H0,&H38,0,1,3, 2,12,8,8,1,0}
 8080 m_roland(&H10,&H16,ARY,13)
 8130 /*
 8140 /* SC-55 MUTE (CH.11-16)
 8150 ARY={&H40,&HFF,&H2,16}
 8160 for z=10 to 15
 8170   ARY(1)=&H10 or z
 8180   m_roland(16,&H42,ARY,4)
 8190 next
 8200 /*
 8210 /* SC-55 REVERB    CHR    LEVEL TIME  FB
 8220 dim char RV(6)={ 0,  0, 0,  122,  42,  0, 0}
 8230 sc55_reverb(RV,16)
 8240 /*
 8250 /* SC-55 PARTIAL RESERVE
 8260 ARY={6,6,6,0,0,0,0,0,0,6,0,0,0,0,0,0 }
 8270 sc55_v_reserve(ARY)
 8280 /*
 8290 /* SC-55 ANOTHER DRUMSET (ch.9)
 8300 ARY={&H40,&H19,&H15,2}
 8310 /*m_roland(16,&H42,ARY,4)
 9999 /*         end
10000 char CH(32)
10005 CH={9, 20,24,19,19,10,21,22,23,11}
10007 /*  ^last track number
10010 for z=1 to CH(0) : m_alloc(z,8000)   : next
10020 for z=1 to CH(0) : m_assign(CH(z),z) : next
10030 m_tempo(192)
10040 char s(64) : str p(99)[256]
10060 str a[256],b[256],c[256],d[256],sc,cm
11000 sc="@I$41,17,$42"
12000 write_assign(19,"K+4")
20000 /*        ＢＡＳＳ
20010 p(0)="@24   p3  v14 @q1 l8  o1 @K0  @u96 r8
20015 p(99)="[@]"
20020 p(1)="|:7 f:|g& |:7 g:|e& |:4 e:|baga& |:16 a:|
20021 p(1)="|:7 f:|g& |:7 g:|e& |:4 e:|baga& a1& a1
20025 p(81)="f2..g& g2..e& e4.g2a& a1^1
20030 p(2)="|:16 a:| |:16 g:| |:16 f:| |:8 g:||:8 g+:|
20040 p(3)="|:12 b-:|b-fgb-  aaaaaega aaeaaege |:12 b-:|b-fgb- <|:8c:|>cegb<c>bge
20050 p(4)="|:12 b-:|b-fgb-  aaaaaega aaeaaege |:12 b-:|b-fgb- <|:8c:|>cegb<c>bge
20060 p(5)="aaaaaega ggggggfd eeeee<dc>b aaaagggg
20070 p(6)="f<f>fff<c>ba gggggb<de cccc>bbbbaegagcfg
20080 p(7)="fffff<ed>f |:3g|gd:|b eeeegb<cd> aaaagggg
20090 p(8)="|:16 f:| |:16 g:|
20100 p(9)="|:8 f:|f<f>ff<d>ff<c> |:8 g:||:5g+:|b<de>
20110 p(10)="|:16 a:| a1&a1
20120 p(11)="|:8 f:| |:8 g:| |:16 a:|
20130 p(12)="|:8 a:| |:8 e:| |:8 f:| |:8 g:|
20140 p(13)="|:8 a:| |:8 e:| |:16 g+:|
20200 p(43)="|:b-4.b-4b-4.:| |:a4.a4a4.:| |:b-4.b-4b-4.:|<|:c4.c4c4.:|>
22000 s={0, 99,1, 2,2, 3,4,  2,2, 3,4,3,4, 5,6,7,9, 99, 5,6,7,9, 10,11,11,6,8,
22010    3,4,3,4, 5,6,7,9, 5,6,7,9, 43,4,  81,           255}
22050 write(1)
24010 p(0)="     @26   p3 v13  @q2 l8  o1 @K-6 @u92 r8
24050 write(2)
25000 /*        ＤＲＵＭＳ
25010 p(0)="@1    p3  v13  p3 l8  o2 @K0  @u110 @R1 "+sc+"@E80,34
25020 p(1)="<c+*0>|:10 cr er:|
25021 p(1)="<c+*0>c4<a*0>ece<a*0>cr<c+*0>c& c4<a*0>ec<a*0>ecf4 <c+*0>c4e4<c+*0>c4e<a*0>c r1^1
25025 p(81)="<c+*0>c2<a*0>e4.e r<c+*0>c4.<a*0>e4.<c+*0>c ree<c+*0>cree<a*0>c
25030 p(2)="<c+*0>|:16 cr er:|
25040 p(3)="<c+*0>|:8  cr er:|
25045 /* PATTERN
25050 p(4)="<c+*0>|:12 cr er :| <a*0> |:cr er cc e<g>:|
25060 p(5)="<c+*0>|:12 cr er :| <a*0> cr er cc er c<a*0>e r@u+20 g32g16. b16b16agf@u-20
25070 p(6)="<c+*0>|:14 cr er :| c<a*0>e rc <c+*0>ecc e
25080 p(7)="<c+*0>|:14 cr er :| <a*0>@u-10e16@u+10e16c|:ec:|e16@u+10e16@u-10c
25090 p(8)="<c+*0>|:14 cr er :| <a*0>cr er @u+20 b16b16a gf@u-20
25100 p(9)="<c+*0>|:12 cr er :| |:4 cc @u+8<a*0>e@u-8r:|
25110 p(10)="<c+*0>|:14 cr er :| <c+*0>ccer e@u+10|:3e*0g*0a:|@u-10
25120 p(11)="<c+*0>|:12 cr er :| <a*0>|: cc er | cr er:| c@u-10e@u+20e@u-10e
25300 p(90)="@Y$18,40,59  @Y$1A,36,118 @Y$18,36,61  @Y$1D,36,64 " /* SD / BD
25310 p(91)="@Y$1A,49,92  @Y$1C,49,46  @Y$1A,57,88  @Y$1C,57,82 " /* CRASH CYMBALS
25320 p(92)="@Y$1A,41,100 @Y$1A,43,100 @Y$1A,45,100 @Y$1A,47,100" /* TOM LEVEL
25330 p(93)="@Y$1C,41,32  @Y$1C,43,48  @Y$1C,45,80  @Y$1C,47,96 " /* TOM PAN
25340 p(94)="@Y$1D,40,84
25350 p(97)="r8
25360 p(95)="@Y$18,42,62 @Y$1C,42,88  @Y$18,46,62  @Y$1C,46,88 " /* HI-HAT
25370 p(96)="@Y$18,51,63 @Y$1D,51,32  @Y$1E,51,64  @Y$1C,51,40 " /* RIDE CYMBAL
25500 /* SOLO
25510 p(50)="|:<a*0>cr e <c+*0>cre :| <a*0c+*0>ecec <c+*0a*0>|:7c|r:|c<c+*0>ec
25600 /* END
25610 p(70)="|:<c+*0>e4.c4c4. | |:3 c4.c4c4.:| :| c4.c4c4. |:<c+*0>{cree}4e<a*0>{cree}4e:|{eeae}4{ggff}4
26000 s={0, 90,91,92,93,94,95,96,97,1, 4,5, 6,7, 4,5, 6,7,6,8, 11,7,11,10, 50,2,2,
26010       6,7,6,8, 9,7,9,10, 70,8,  81,   255}
26050 write(3)
27000 /*        ＤＲＵＭＳ HI-HAT
27010 p(0)="@R1            q1 l8  o2      @u56 r8
27020 p(1)="|:40 f+:|
27030 p(2)="|:32 @u+6 f+@u-6  f+ :|
27040 p(3)="r4<|:31 @u+30d+@u-30 d+ :|>
27050 p(4)="|:16 @u+6 f+@u-6  f+ :|
27055 /* PATTERN
27060 p(5)= "r4 |:23 @u+18 f+ @u-18 f+ :| r4|:@u+18f+ @u-18f+:|r4 |:3 @u+8f+ @u-8f+:|r4
27070 p(6)= "r4 |:23 @u+18 f+ @u-18 f+ :| r4|:3 @u+18f+ @u-18f+:| r1
27080 p(7)= "r4 |:27<@u+36d+ @u-36d+>:| |:r4 @u+40<d+4>@u-40:|
27090 p(8)= "r4 |:27<@u+36d+ @u-36d+>:| r4@u+30<f4 @u-10f4 @u+20f4 @u-40>
27100 p(9) ="r4 |:23 @u+18 f+ @u-18 f+ :| |:4 a+4 r4:|
27110 p(10)="r4 |:27 @u+18 f+ @u-18 f+ :| r4<@u+40|:3 f4:|@u-40>
27120 p(11)="r4 |:23 @u+18 f+ @u-18 f+ :| <|:8 @u+36d+ @u-36 d+:|>
27130 p(12)="r4 |:27 @u+18 f+ @u-18 f+ :| r1
27140 p(13)="r4 |:29<@u+36d+ @u-36d+>:| r2
27500 /* SOLO
27510 p(50)="r1 r1 r1 r4a+4r2"
27520 p(51)="r4 |:27 @u+18 f+ @u-18 f+ :| |:4 u+8 a+ u-4 a+:| u-16
27600 /* END
27620 p(70)="|: r4 |:15 a+ u-12{f+f+}u:| :|
28000 s={0, 1, 5,6, 7,8, 5,6, 7,8,7,13, 11,10,11,12, 50,51,2,
28010        7,8,7,13, 9,10,9,12, 70,13,    255}
28050 write(4)
30000 /*        ＭＥＬＯＤＹ (Vocal)
30010 p(0)="@66   p3  v15  q8 l4  o4 @K0  @u96  @M96 @H72 "+sc+"@E64,32 r8
30020 p(1)="|:5 r1 :|
30030 p(2)="reee aedc de8e8&er8c8 dcdc dc8>a8&a2 r2a8a8b8<c8> b2<c2 d1
30040 p(3)="reee aedc de8e8&er8c8 dcdc dc8>a8&a2&a2.r        <e1&   e2.r
30050 p(4)="rb-b-b- b-aga gc8c8&c2& c2.r  rfff ffb-a ga8g8&g2& g2.r
30060 p(5)="rb-b-b- b-aga gc8c8&c2& c2.r  r1   e2f2  g1&       g2.r
30070 p(6)="e2d2 >b2g2 <d2c4>b4< c1  rref e.d.>b g2<d2 c1
30080 p(7)="f2e2 d2>g2 <e2>b2< c1 r>aab< c>a<c>a b1& b2.r<
30090 p(8)="|:4 r1:|
30100 p(9)="|:8 r1:|
30110 /*p(10)
30120 /*p(11)
30130 p(12)="
31000 s={0, 1, 2,3, 4,5, 2,3, 4,5,4,5, 6,7,6,7, 8,9,9,
31010       4,5,4,5, 6,7,6,7, 4,5, 1,   255}
31050 write(5)
40000 /*        ＫＥＹ　Ａ（ＰＩＡＮＯ）
40010 p(0)="@2    p3  v10  q7 l8  o3 @K0  @u86 r8
40020 p(1)="'f2..a<c''gb<d'& 'g2..b<d''egb'& 'e2gb''g4.b<e''a<ce'& 'a1<ce'r1
40030 p(2)="'a1<ce'r1 'g1b<e'r1 'f1a<c'r1 'g1b<d''g+1b<d'
40040 p(3)="|:|:'b-4.<df':|r4:| |:'a4.<ce':|r4 'a4.<de''a4.<ce'r4
40045 p(3)=p(3)+"|:|:'b-4.<df':|r4:|< |:'c4.eg':|r4 'c4.fg''c4.eg'r4 >
40050 p(4)="'a1<ce' 'g1b<d' 'g1b<e' 'a2<ce''g2b<d'
40060 p(5)="'c1fa' 'd1gb'<'c2eg'>'b2<dg''a2<ce''g2b<e'
40070 p(6)="'f1a<c' 'g1b<d' 'e1gb<d' 'a2<ce''g2b<d'
40080 p(7)="'f1a<c' r'f2..a<c',24 'g1b<d',0 r1
40090 p(8)="'f1a<c' r'f2..a<c',24 'g1b<d',0 'g+1b<d'
40095 /* SOLO
40100 p(9)="o5 @d1aec>baec>b@d0 @d1aec>baec>b@d0 'a1ce<a'&'a2.ce<a'r4
40110 p(10)="@u112~14 o3 @d1'c4.ea''c4fa'cag@d0 @d1'd4.ab''d4gb'dgb@d0 @d1'a4.<de''a2<ce'r@d0 @d1'e4.b<c''e2a<c'r@d0
40120 p(11)="o3 @d1cfa'fa<c'r2@d0 @d1dgb'gb<d'r2@d0 @d1a<cec>a<d>bg@d0 @d1'a<c'er'a<ce'r'a<c''b<d''<ce'@d0
40130 p(12)="o3 @d1'f4.a<c'<'f4a'ec>f@d0 @d1'g4.b<d'<'g4b'e>bg@d0 @d1cegb<<c>bae@d0 @d1c>baec>bae@d0
40140 p(13)="o3 @d1'f<c'a<cfr>f<c>f@d0 @d1f<cr'f4a'ec>a@d0 'b2<dg'r'b<da'r'b<dg'& 'b2.<dg'_@u86r4
40145 /*
40150 p(14)="o3 'a1<ce' 'e1gb<d' 'f1a<ce' 'g2a<d''g2b<d'
40160 p(15)="o3 'a1<ce' 'e1gb<d' 'g+1b<d' r1
41000 s={0, 1, 2,2, 3,3, 2,2, 3,3,3,3, 4,5,6,8, 4,5,6,8, 9,10,11,12,13,
41010             3,3,3,3, 4,5,6,8, 4,5,6,8, 3,3, 1, 255}
41050 write(6)
45000 /*        ＫＥＹ　Ａ（ＰＩＡＮＯ）
45010 p(0)="@49   p3  v11  q8 l8  o3 @K0  @u86 r8
45020 p(1)="o4 'f2..a<c''gb<d'& 'g2..b<d''egb'& 'e2gb''g4.b<e''a<ce'& 'a1^1<ce'
45030 p(2)="'a1^1<ce' 'g1^1b<e' 'f1^1a<c' 'g1b<d''g+1b<d'
45040 p(3)="o4 'b-1^1<df' 'a1<ce' 'a4.<de' 'a8^2<ce'
45045 p(3)=p(3)+" 'b-1^1<df' < 'c1eg' 'c4.fg''c8^2eg' >
45050 p(4)="o4 'a1<ce' 'g1b<d' 'g1b<e' 'a2<ce''g2b<d'
45060 p(5)="'f1a<c' 'g1b<d'<'c2eg'>'b2<dg''a2<ce''g2b<e'
45070 p(6)="'a1<ce' 'b1<dg' 'e1gb<d' 'a2<ce''g2b<d'
45071 p(6)="'a1<ce' 'b1<dg' 'e1gb<db' 'a2<ce''g2b<d'
45080 p(7)="'f1a<c' 'f1a<c' 'g1^b<d'
45090 p(8)="'f1a<c' 'f1a<c' 'g1b<d' 'g+1b<dg+'
45095 /* SOLO
45100 p(9)="o6 ~12 u+20 aec>baec>b aec>baec>b u 'a2ce<a' <u+16 @d1{gab<cdefg}2@d0 'a1ce<a'u
45101 p(9)="o6 ~12 u+20 aec>baec>b aec>baec>b u 'a2ce<a' <u+16 L16 @d0{g&@d1g}{a&@d0@d1a}{b&@d0@d1b}<{c&@d0@d1c}{d&@d0@d1d}{e&@d0@d1}{f&@d0@d1f}{g&@d0g}L8 'a1ce<a'u
45110 p(10)="o4 'c1fa' 'd1gb' 'a1<de' u+20<'a>a''e>e''c>c'>'b>b''a>a''e>e''c>c'>'b>b'<u
45120 p(11)="o4 'c1fa' 'd1gb' 'a1<de' 'a1<cea'
45130 p(12)="o4 'f1a<c' 'g1<bd' <'c2eg''>b2<eg' '>a2<ce''g2b<e'
45140 p(13)="o4 'f1^1a<cf' < u+20 {'g>g''f>f''e>e''d>d''f>f''e>e''d>d''c>c'}1 {'e>e''d>d''c>c'>'b>b'<'d>d''c>c'>'b>b''a>a'}1 u _
45145 /*
45150 p(14)="o3 'a1<ce' 'e1gb<d' 'f1a<ce' 'g2a<d''g2b<d'
45160 p(15)="o3 'a1<ce' 'e1gb<d' 'g+1b<d' r1
46000 s={0, 1, 2,2, 3,3, 2,2, 3,3,3,3, 4,5,6,8, 4,5,6,8, 9,10,11,12,13,
46010             3,3,3,3, 4,5,6,8, 4,5,6,8, 3,3, 1, 255}
46050 write(9)
50000 /*        ＧＵＩＴＡＲ　Ａ (LEFT)
50010 p(0)="@107 @p88 v12  q8 l8  o3 @K-3      r8
50020 p(1)="@u101o3'f2..a<c''gb<d'& 'g2..b<d''egb'& 'e2gb''g4.b<e''a<ce'& 'a1<ce'& 'a1<ce'
50030 p(2)="o3 @u101'a4<e'@u99|:14'a<e':| @u101'e4g'@u99|:14'eg':|@u101'c4f'@u99|:14'cf':|@u101'd4g'@u99|:6'dg':|@u101'd4g+'@u99|:6'dg+':|
50032 p(30)="o2 |:3@u99|:'a<e':||@u101'a<ea':| @u99|:'a<e':|@u101'a<ea'@u99a@u101'a<dg''a<ea'@u99|:'a<ea':|
50033 p(31)="o2 @u99|:'g<e':|@u101'g4<dg'@u99'g<e'@u101'g<dg'@u99|:'g<e':| |:@u101'g<dg'@u99'g<e':|@u101'g<dg''g<cf'@u99|:'g<e':|
50034 p(32)="o2 @u99|:5'f<cf':||: @u101'<cf<c'@u99|:'f<cf':|@u101'<ceb'@u99'f<cf'|'f<cf' :|
50035 p(33)="o2 |:3@u99|:'g<g':||@u101'g<db':| @u99|:'g+<g+':|@u101'g+4<db'@u99'g+<g+'@u101'g+<db'@u99|:'g+<g+':|
50040 p(34)="@u125o2 |:b-<d>|:b-f<d >:|:| |:a<c>|:ae<c>:|:|
50045 p(34)=p(34)+"o2 |:b-<d>|:b-f<d >:|:| o3 |:ce|:ceg:|:|
50050 p(35)="o2 |:b-<d>|:b-f<d >:|:| |:a<c>|:ae<c>:|:|
50055 p(35)="@u125"+p(35)+"o2 |:b-<d>|:b-f<d >:|:| o3 ce|:ceg:| cegb<c>bge
50060 p(4)="o2 @u109'a4<e'@u99|:6'a<e':| @u109'g4<d'@u99|:6'g<d':| @u109'g4<e'@u99|:6'g<e':| @u109'a4<e'@u99|:'a<e':|@u109'g2<d'
50070 p(5)="o2 @u109'f4<c'@u99|:6'f<c':| @u109'g4<d'@u99|:6'g<d':| @u109<'c4d'@u99|:'cg':|>'b<f'@u109'b<f'@u99|:'b<f':| |:@u109'a<e'||:@u99'a<e':|:| @u99|:'g<d':|@u109'g4<d'
50080 p(6)="o2 @u109'f4<c'@u99|:6'f<c':| @u109'g4<d'@u99|:6'g<d':| @u109'e4b'@u99|:6'eb':| @u109'a4<e'@u99|:'a<e':|@u109'g2<d'
50090 p(7)="o2 |:3 @u109'f<c'@u99'f<c'|'f<c':| @u99|:'f<c':| |:@u109'f<a'@u99'f<a'|@u109'f<g'@u99'f<g':| @u109'g<d'@u99|:7'g<d':| |:3 @u109'g+<d'@u99'g+<d'|'g+<d':|
50100 p(8)="@u120'a1e'&'a1e'r1r1
50105 /* SOLO
50110 p(9)="|:4 r1:|
50120 p(10)="@115 @u127 |:4 r1:|
50130 p(11)="o3 f4.<@k-64f8&@k-3f8ec>f g4.<@k-64g8&@k-3g8e>bg cegb<<c>bae c>baec>bae
50140 p(12)="o3 fa<c@k-64f&@k-3f>f<c>f f<@k-64c&@k-3cf4ec>a< g2&g@k-64a&@k-3ag& g2.&(g8.,d)@107r16
50200 /* END
50240 p(54)="@u99 o3 |:b-<d>|:b-f<d >:|:| |:a<c>|:ae<c>:|:|
50245 p(54)="~16 "+p(54)+"o3 |:b-<d>|:b-f<d >:|:| o3 |:ce|:ceg:|:| _
51000 s={0, 1,30,31,32,33,30,31,32,33, 34,35,
51001         30,31,32,33,30,31,32,33 ,34,35,34,35, 4,5,6,7,4,5,6,7, 8,9,10,11,12,
51010             34,35,34,35, 4,5,6,7,4,5,6,7, 54,35,   1, 255}
51050 write(7)
52040 p(54)="@u99 o2 |:b-<d>|:b-f<d >:|:| |:a<c>|:ae<c>:|:|
55000 /*        ＧＵＩＴＡＲ　Ｂ  (RIGHT)
55010 p(0)="@108 @p40 v12  q8 l8  o3 @K+3 @u101r8
55020 p(1)="@u101'f2..a<c''gb<d'& 'g2..b<d''egb'& 'e2gb''g4.b<e''a<ce'& 'a1<ce'& 'a1<ce'
55030 p(2)="o2 @u101'a4<e'@u99|:14'a<e':| @u101'g4<e'@u99|:14'g<e':|@u101'f4<c'@u99|:14'f<c':|@u101'g4<d'@u99|:6'g<d':|@u101'g+4<d'@u99|:6'g+<d':|
55032 p(30)="o2 @u101'a4<ea'@u99|:10'a<ea':|@u101'a<dg''a<ea'@u99|:'a<e':|
55033 p(31)="o2 @u101'g4<eg'@u99|:10'g<eg':| @u101'g<dg''g<cf'@u99|:'g<eg':|
55034 p(32)="o2 @u101'f4<cf'@u99|:6'f<cf':| |:@u99'f<cf'@u101'f<ca'@u99|:'f<cf':| :|
55035 p(33)="o2 @u114'g2<dg'@u124g<deg> 'g+2<deg+'@u99'g+<g+'@u114'g+4.<b<d'
55040 p(34)="@u124o2 |:b-<f>|:b-f<b->:|:| |:a<e>|:ae<a>:|:|
55045 p(34)=p(34)+"o2 |:b-<f>|:b-f<b->:|:| o3 |:cg|:cg<c>:|:|
55050 p(35)="o2 |:b-<f>|:b-f<b->:|:| |:a<e>|:ae<a>:|:|
55055 p(35)="@u124"+p(35)+"o2 |:b-<f>|:b-f<b->:|:| o3 cg|:cg<c>:| o3 egb<cec>bg
55060 p(4)="o2 @u109'a4<e'@u99|:6'a<e':| @u109'g4<d'@u99|:6'g<d':| @u109'g4<e'@u99|:6'g<e':| @u109'a4<e'@u99|:'a<e':|@u109'g2<d'
55070 p(5)="o2 @u109'f4<c'@u99|:6'f<c':| @u109'g4<d'@u99|:6'g<d':| @u109<'c4d'@u99|:'cg':|>'b<f'@u109'b<f'@u99|:'b<f':| |:@u109'a<e'||:@u99'a<e':|:| @u99|:'g<d':|@u109'g4<d'
55080 p(6)="o2 @u109'f4<c'@u99|:6'f<c':| @u109'g4<d'@u99|:6'g<d':| @u109'e4<b'@u99|:6'eb':| @u109'a4<e'@u99|:'a<e':|@u109'g2<d'
55090 p(7)="o2 |:3 @u109'f<c'@u99'f<c'|'f<c':| @u99|:'f<c':| |:@u109'f<a'@u99'f<a'|@u109'f<g'@u99'f<g':| @u109'g<d'@u99|:7'g<d':| |:3 @u109'g+<d'@u99'g+<d'|'g+<d':|
55100 p(8)="@u120'a1<c'&'a1<c'r1r1
55110 p(9)="o2 @u109'f4<cf'@u99|:6'f<cf':| @u109'g4<dg'@u99|:6'gd<g':| |:@u109'a4<ea'@u99'a<ea'||:'a<ea':|:| |:4 @u109'a<ea'@u99'a<ea':|
55120 /*p(10)="o2 @u109'f4<cf'@u99|:6'f<cf':| @u109'g4<dg'@u99|:6'gd<g':| |:@u109'a4<ea'@u99'a<ea'||:'a<ea':|:| |:4 @u109'a<ea'@u99'a<ea':|
55130 p(11)="o2 @u109'f4a<a'@u99|:6'fa<a':| @u109'g4<dg'@u99|:6'g<dg':| @u109<'c4dg'@u99|:'cg<c':|>'b<fb'@u109'b<fb'@u99|:'b<fb':| |:@u109'a<ea'||:@u99'a<ea':|:| @u99|:'g<dg':|@u109'g4<dg'
55140 p(12)="@115o3@u127 cfa<@k-64c&@k+3c>cac c@k-64f&@k+3f<c4>baf b2&b@k-64<c&@k+3c>b&b2.&(b8.,g)@108r16
55145 /* SOLO B
55150 p(13)="@115o4@u127 f4.e4.cd efed&d2 f>a4<d4e4f efed&def>b
55240 p(54)="@u99 o2 |:b-<f>|:b-f<b->:|:| |:a<e>|:ae<a>:|:|
55245 p(54)="~20 "+p(54)+"o2 |:b-<f>|:b-f<b->:|:| o3 |:cg|:cg<c>:|:| _
56000 s={0, 1,30,31,32,33,30,31,32,33, 34,35,
56001         30,31,32,33,30,31,32,33, 34,35,34,35, 4,5,6,7,4,5,6,7, 8,9,9 ,11,12,
56010             34,35,34,35, 4,5,6,7,4,5,6,7, 54,35,  1,  255}
56050 write(8)
60000 m_play()
60010 end
60020 func write(t)
60030 int i=0
60040   while s(i)<>255
60050     m_trk(t,p(s(i)))
60060     i=i+1
60070   endwhile
60090 endfunc
60220 func fre()
60230 int t
60240   for t=1 to 12
60250     print using " ##: ####   ";t,m_free(t);
60260   next
60270   print
60280 endfunc
62100 func tcnt()
62110 int st,ed,tl
62120   st=tvl(): m_play()
62130   while 1
62135   locate 0,csrlin
62140     if m_stat()=0 then break
62143   tl=tvl()-st
62145   print using "####  ###:##";tl,tl/60,tl mod 60;
62150   endwhile
62160   ed=tvl() : tl=ed-st
62170   print using "####  ###:##";tl,tl/60,tl mod 60
62180 endfunc
62190 func tvl()
62200   int v : str tmp
62205   tmp=time$
62210   v=val(mid$(tmp,1,2))*3600
62220   v=v+val(mid$(tmp,4,5))*60
62230   v=v+val(mid$(tmp,7,8))
62240   return(v)
62250 endfunc()
65000 func write_assign(dr,ky;str)
65010 int t : str tmp
65020   for t=1 to CH(0)
65030     tmp="@n"+itoa(CH(t))+" @G12 "
65032     if CH(t)<>dr then tmp=tmp+ky
65035     m_trk(t,tmp)
65040   next
65050 endfunc